home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 6 / 01 / mini-compiler / mini.ampk / Mini-Compiler / Demo / Rech.m < prev    next >
Encoding:
Text File  |  1995-06-01  |  837 b   |  47 lines
  1. Program Fakultaet;
  2. { Dies ist eine kleine Demo zu Rekursion }
  3. Type T_Sieb = Array[500] of Boolean;
  4.  
  5. Var I,w  : Integer;  { Zur Demonstration lokal überdeckt global }
  6.     Feld : T_Sieb;
  7.  
  8. Function Fac( I : Integer) : Integer;
  9. Begin
  10.  if i<=1
  11.     then return(1)
  12.     else return(I*(fac(i-1)))
  13. End;
  14.  
  15. Procedure Init;
  16. Var i : Integer;
  17.  
  18. Begin
  19.  For i:=1 to 500 By 1 Do
  20.    Feld[i]:=True
  21. End;
  22.  
  23. Begin
  24.  Write('Eingabe Nummer :');
  25.  Readln(i);
  26.  Writeln(' Fak(',i,')=',Fac(i));
  27.  Writeln('Sieb init...');
  28.  Init;
  29.  Writeln('Siebe ...');
  30.  For i:=2 to 250 By 1 DO
  31.      Begin
  32.        w:=i*2;
  33.        While w<=500 Do
  34.              Begin
  35.                Feld[w]:=False;
  36.                w:=w+i
  37.              End
  38.      End;
  39.  Writeln('Primzahlen sind :');
  40.  For i:=1 to 500 by 1 Do
  41.      If Feld[i]
  42.         then Write(I,'    ');
  43.  Writeln;
  44.  Write('Fertig ...');
  45.  Readln
  46. End.
  47.